;; 基本的call/cc测试，显示结果

(display "基本call/cc测试: ")
(display (call/cc (lambda (k) 42)))
(display "\n")